home *** CD-ROM | disk | FTP | other *** search
/ Impact Screensaver 24: Kennedy Space Center / Kennedy Space Center Screensaver.iso / AzureBay Screen Saver 3.4.msi / Binary.NewBinary23 < prev    next >
Text File  |  2005-07-04  |  428b  |  11 lines
  1. Dim fso, imgSetExePath, WSHShell, imgSetExeName, sourceDir
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set WSHShell = CreateObject("WScript.Shell")
  4. sourceDir = Session.Property("SourceDir")
  5. imgSetExeName = "ImgInstall.exe"
  6. imgSetExePath = sourceDir & imgSetExeName
  7. If fso.FileExists(imgSetExePath) Then    
  8.     WSHShell.run chr(34) & imgSetExePath & chr(34), 5, True    
  9. End If
  10. Set WSHShell = Nothing
  11. set fso = Nothing